home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / ASTRNOMY / DE118I.ZIP / FLOORL.SUN < prev    next >
Text File  |  1993-01-20  |  804b  |  63 lines
  1. .text
  2.     .even
  3. .globl _floorl
  4. _floorl:
  5.     link a6,#0
  6.     fmovex fp1,sp@-
  7.     fmovel fpcr,d0
  8.     movel #-17,d1
  9.     andl d0,d1
  10.     orl #32,d1
  11.     fmovel d1,fpcr
  12.     fmovex a6@(8),fp1
  13.     fintx fp1,fp0
  14.     fmovel d0,fpcr
  15.     fmovex a6@(-12),fp1
  16.     unlk a6
  17.     rts
  18.     .even
  19. .globl _ceill
  20. _ceill:
  21.     link a6,#0
  22.     fmovex fp1,sp@-
  23.     fmovex a6@(8),fp1
  24.     fintx fp1,fp0
  25.     fmovex sp@+,fp1
  26.     unlk a6
  27.     rts
  28.     .even
  29. .globl _frexpl
  30. _frexpl:
  31.     linkw a6,#0
  32.     fmovex fp1,sp@-
  33.     fmovex a6@(8),fp0
  34.     movel a6@(20),a0
  35.     fgetexpx fp0,fp1
  36.     fintrzx fp1,fp1
  37.     fmovel fp1,d0
  38.     fgetmanx fp0,fp0
  39.     ftestx fp0
  40.     fbngt L21
  41.     fscaleb #-1,fp0
  42.     addql #1,d0
  43. L21:    movel d0,a0@
  44.     fmovex a6@(-12),fp1
  45.     unlk a6
  46.     rts
  47.     .even
  48. .globl _ldexpl
  49. _ldexpl:
  50.     linkw a6,#0
  51.     fmovex a6@(8),fp0
  52.     fscalel a6@(20),fp0
  53.     unlk a6
  54.     rts
  55.     .even
  56. .globl _fabsl
  57. _fabsl:
  58.     link a6,#0
  59.     fmovex a6@(8),fp0
  60.     fabsx fp0,fp0
  61.     unlk a6
  62.     rts
  63.